home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 43.zip
/
Excellence v1.11 disk 2.adf
/
prologue
< prev
next >
Wrap
Text File
|
1988-11-23
|
483b
|
26 lines
%%%% Created by excellence! (c)1987,88, Micro-Systems Software, Inc.
save
erasepage
50 dict begin
/underline {
currentpoint currentfont dup
/FontMatrix get /yscale exch 3 get def
/FontInfo get dup
/UnderlineThickness get yscale mul setlinewidth
/uline exch /UnderlinePosition get yscale mul def
4 2 roll uline add 4 2 roll uline add moveto lineto stroke
} bind def
/chgfont {
cvn findfont exch
makefont setfont
} bind def
%%%% End prologue